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-TITLE PROCESS PR 
»SBTTL ba aH 
IDENT ‘V04- 


SED ENRENRURENIEEaEEaENNONNbeSeteNtenierensebeeesaneneenesesesennceeneesens 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


OFTWARE IS peuiaeee UNDER A LICENSE AND MAY BE USED AND cortce 
a CE WITH THE TERMS OF SUCH Bt AND WITH THE 


E. TWARE OR 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE OMADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* ® 
:* ® 
** ® 
'® ® 
** ® 
** ® 
* ® 
* ® 
** ® 
'® ® 
s® TRANSFERRED. ° 
:* ® 
** a 
** * 
*® * 
:* a 
'* * 
** ca 
* ® 
** ® 
** ® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PROCESS PROC 
v04-000 PROG 


TIM HALVORSEN, JULY 1978 
MODIFIED BY 
v03-013 MSHO072 Michael S. Harvey 3-Aug-1984 


Correct some bugs causing errors getting data for 
processes other than your own. 


p ~SBTTL PROGRAM DESCRIPTION 
9 FACILITY 
SYSTEM DUMP ANALYZER 
ABSTRACT 
38 ROUTINES TO FORMAT PROCESS INFORMATION 
00 ENVIRONMENT 
G NATIVE MODE, USER MODE 
0 AUTHOR 
0 
0 
0 
0 
0 
0 
0 
0 


0000 

0000 v03-012 —€MB0101 Ellen M. Batbouta 14-Jun-1984 
0000 pecans MWAIT so as to correctly display the resource 
0000 rocess is waitin has when a SHOW PROCESS or SHOW 


gu MARY command is ued. Show the full device name 
on a SHOW PROCESS/ CHANNELS display. 


V03-011 PRBO314 Paul Beck 28-Feb-1984 16:48 
Use longword fornatting for BUFIO byte count/Limit. 


v03-010 wac0002 Wayne Cardoza 02-Dec-1983 
Some PHD fields have changed to longwords 


v03-009 wMC0001 Wayne Cardoza 11-Jul-1983 
Support separate display of process PO and P1 page tables. 


v03-008 TCM0001 Trudy C. Matthews 12-Apr-1983 
Make sure references to working set List offsets in the 
process header are treated as unsigned words. 


v03-007 cuntous CW Hobbs 26-Mar-1983 
Run process names through !AF directive to keep escape 
sequences from the displays. 


v03-006 CWH1003 CW Hobbs 23-Mar-1983 
Shuffle items in SHOW SUMMARY a Little. 


V03-005 CWH1002 Cw Hobbs 11-Mar-1983 
Biseray extended PIDs in nood ne and SHOW PROCESS /PCB 
displ ne Change SHOW SUMMARY add /IMAGE qualifier 

and alter items in summary tae 


V03-004 MSHO002 Maryann Hinden 22-0c t-1982 
Pass extra argument to SHOW_PROC_LOCK 
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PROC PROCESS 
v04= PROGRAM 


ROUTINES 


NCREEBE GUS VOUS CnaeeLOGR, Po 


v03-003 LMP0033 L. Mark Pilant 25-Jun-1982 15:36 
ix a problem introduced by KTAO103. Also, fix a bug that 
caused a BADPROC error wenneey to appear if a display for all 
processes terminated abnormally. 


v03-002 LMP0031 L. Mark Pilant, 
Add support for SHOW PROCESS/CHANNELS. 
v03-001 MSHO001 


17-Jun-1982 13:25 


Maryann Hinden 10-Jun-1982 


Add SHOW PROC/LOCK. 
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MACRO CS,TEXT 


LOCAL MACRO DEFINITIONS 
-MACRO CSTABLE,LEN 
SAV =. 


~SBTTL DECLARATIONS 


SYMBOL DEFINITIONS 
~ASCIC \TEXT\ 
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DECLARATIONS 


- = SAV + CSL 
-ENDM 
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PROCES PROCESS FORMATTING ROUTINES 16-SEP-1984 01:44: AX/VMS 4- 
fives STORAGE DEFINITIONS g- Er 4 84:93:38 SDA ERC IPROCESS Mans 1 — 3). 
: ; .SBTTL STORAGE DEFINITIONS 
1 : : STORAGE DEFINITIONS 
126 * 
0000 141 .PSECT SDADATA,NOEXE,WRT 
148 default displacement, long 
0 145 PCBADR:: 
00000004 tf 146 .BLKL 1 : ADDRESS OF PCB 
4 148 PCB:: 
00000124 00 4 145 .BLKB = PCBSC_LENGTH ; BUFFER TO HOLD PCB 
or 4 151 PHDADR:: 
00000128 0124 138 .BLKL 1 ; ADDRESS OF PHD 
6158 18% PHD 
0000024 018 138 ‘" BLKB - PHDSC_LENGTH ; BUFFER TO HOLD PHD 
O2A4 157 JIBADR:: 
000002A8 0 a 138 = .BLKL 1 : ADDRESS OF JIB 
0000031¢ 0 As 160 “" BLKB = JIBSC_LENGTH : BUFFER TO HOLD JIB 
031C 16¢ CHANTBL_SIZE: 
00000320 O31¢ 163 iene BLKL 1 : SIZE UF THE CHANNEL TABLE 
00000324 03 0 165 ably «Ts 1 ; ADDRESS OF THE CHANNEL TABLE COPY 
03 4 189 CHANDEV-SIZE: 
00000328 4 168 -BLKL 1 ; SIZE OF DEVICE NAME FOR CHANNEL 
0000032D' 328 169 ADDRESS CHANDEV_NAME+1 : ADDRESS OF NAME STORAGE 
C 170 CHANDEV_NAME : 
0000033¢ O38 14 isi ead 16 ; STORAGE FOR THE DEVICE NAME 
00000084 ¢ 158 LONG 132 > FILE NAME DESCRIPTOR 
00000344" 0340 17% * ADDRESS FILE_NAMETXT 
44 175 FILE_NAMETXT: 
000003¢8 44 1% a KB 
00000308 cB 178 ial "  .BLKB SB$S_NODENAME : NODE NAME 
0000048 0308 i ae .BLKB  - FCBSC_LENGTH ; STORAGE FOR THE FCB 
0000048¢ BeBe 188 "  BLKB = WCBSC_LENGTH ; STORAGE FOR THE WCB (NO MAP POINTERS) 
00000000 i .PSECT PROCESS, EXE,NOWRT 
$000 186 .DEFAULT DISPLACEMENT,LONG 
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VO5s000 READ-ONLY DATA DEFINITIONS Breer be Obighiag PARKS Macro. YO4n00 et 


~SBTTL READ-ONLY DATA DEFINITIONS 
READ-ONLY DATA DEFINITIONS 


NOTAVAIL: 
-ASCIC ‘== image name not available --' 


ee 
WOO0000M° 


USWr—-O0O° 


«MACRO SDEFINI NAME,P1,P2 
MACRO SDEFEND NAME,P1,P2 


-EN 
»MACRO $EQU SYMBOL,VALUE 
ih + SYMBOL) +1 


SYMBOL) =S 
ASCIC /ZEXTRACT(S,L,SYMBOL)/ 
-BLKB 8-<L+1> ~ 
-ENDM $EQU 


STATE_TABLE: 
eASCIC "ILLEGAL" ; FOR ZERO CASE 


SSTATEDEF ; TABLE OF PROCESS STATE NAMES 
.MDELETE SDEF INI, SDEFEND, $EQU 
SSTATEDEF 
PROCESS_STATUS: 
TABLE PCBSV_,<RES,DELPEN, FORCPEN, INQUAN, PSWAPM, RESPEN, SSFEXC, - 
SSFEXTE, SSFEXCS, SSFEXCU, SSRWAIT, SUSPEN, WAKEPEN, WALL, - 


BATCH, NOACNT, SWPVBN, ASTPEN, PHDRES ,HIBER, LOGIN, NETWRK, = 
PWRAST ,NODELET> 


4C 41 47 45 4C 4C 49 60" 


00000003 


; Below is a complete List of the resources a process could be waiting for 
if it is in mwait state. The mutex resource is a special case. It is 
detected by examining the field, PCBSL_EFWM, in the pcb. This field will 
contain the address of the mutex if the process is waiting for one. 
Otherwise this field will contain the number of the resource when in mwait. 


ASSUME RSNS_MAX EQ 15 


RESOURCE _WAIT: 
KDDR_TABLE RSN$S_ , <= 
<ASTQAIT,AST>,- 
<MAILBOX ,MBX>,- 
<NPDYNMER NONPAGED>,- 


P 
<PGDYNMEM, PAGED>, - 


PROPOPoROROPOnonononononononononononononononononononononononony = Rorononofrornonornofnonn oS 


WWAWA AAA A ADIRININININININININ 4 4 4 SSS DOO COO OCOCOOO OOO 
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READ-ONLY DATA DEFIN -SEP=19 SDA. SRCJPROCESS.MAR; 1 
15F 9.261 <JQUOTA, JOB, QUOTA>, ~ 
15F 4¢ OCKID.LOCR 
15F 0-34 <SUPFIL gua: ° 
ji 44 <HPLERBT y Pack. ENPTY>. - 
15F 46 este YE ual 
15F 0-04 <CLUSTRAN, ite e 
15 348 
107-249 
107 50 AST: 
54 53 41 57 52 09° 1p? 51 ASCIC /RWAST/ ; RESOURCE WAIT FOR AST COMPLETION 
1DD 5 
1DD ©6253 MBX: 
58 42 4D 57 52 90° 1p 54 ASCIC /RWMBX/ : MAILBOX FULL 
ae 
1E 36 NONPAGED : 
47 50 4E 57 52 90" gi 5 ASCIC /RWNPG/ ; NONPAGED DYNAMIC MEMORY 
0169 «258 
iE 59 PAGING: 
46 46 50 57 52 00° O169 260 ASCIC /RWPFF/ : PAGE FILL FULL 
05 O1E9 
O1EF 261 
IEF 6¢ PAGED: 
47 41 50 57 52 00" OIEr 6 ASCIC /RWPAG/ ; PAGED DYNAMIC MEMORY 
O1FS 264 
O1F5 365 BREAK: 
4B 52 42 57 52 9" O1FD 66 ASCIC /RWBRK/ ; BREAKTHROUGH 
O1FB 267 
O1FB 268 IMGACT: 
47 4D 49 57 52 00" O1FB 69 SASCIC /RWIMG/ : IMAGE ACTIVATION LOCK 
0 or 70 
1 271 JOB_QUOTA: 
4F 55 51 57 52 00" oN 72 .ASCIC /RWQUO/ : JOB POOLED QUOTA 
0207 273 
07 74 LOCKS: 
4B 43 4C 57 52 90" 4 75 -ASCIC /RWLCK/ : LOCK IDENTIFICATION DATABASE 
$0 %6 
6p 77 SWAP: 
50 57 53 57 52 90" Op 78 LASCIC /RWSWP/ ; SWAP FILE SPACE 
1 79 
1 80 MPAGE_EMPTY: 
45 50 4D 57 52 00" 1 SASCIC /RWMPE/ : MODIFIED PAGE LIST EMPTY 
1 
19 388 MPAGE_BUSY: 
42 50 4D 57 52 90° 19 4 ASCIC /RWMPB/ : MODIFIED PAGE LIST BUSY 
O21F 285 


PROCESS FORMATTING RO 


PROCES UTINES 
vOes006 READ-ONLY DATA DEFINITIONS 
I 


I 
ON 


T 
I 
BB Seen Sere 


1F 
53 43 53 57 52 00" 1F /RWSCS/ 
1F 
CLUSTER: 
55 4C 43 57 52 00" ; $83 ASCIC /RWCLU/ 
8 291 
B 3 MWAIT: 
58 45 54 55 4D 90" : 9 ASCIC /MUTEX/ 
1 294 
1 398 GBL_TABLE : 
09" 96 SASCIC *" 
20 4C 42 47 00° 0 ; 297 -ASCIC "GBL ' 
98 CRF_TABLE: 
00° 8 7 $38 — the * 
00 0237 
20 46 52 43 00° 0 8 300 LASCIC "CRE ' 
023D 301 DZRO_TABLE: 
00" 0 3 02 SASCIC '* 
00 023D 
20 4F 52 45 SA 44 00" 0 303 -ASCIC "DZERO ' 
4 04 WRT_TABLE: 
00° oo.  . * epee. 
00 0245 
20 54 52 57 00° 0 46 306 .ASCIC ‘wRT * 
0248 307 
0 48 308 VALID_TABLE : 
00' 0248 309 -ASCIC '° 
00 0248 
44 49 4C 41 56 20 00° 4c 310 .ASCIC * VALID" 
5 11 PAGTYP_TABLE: 
53 53 45 43 4F 52 50 90° 33 - VASCIC 'PROCESS' 
20 4D 45 54 53 59 53 09" 38 313 .ASCIC "SYSTEM ' 
20 4C 41 42 4F 4C 47 00° 63 314 -ASCIC ‘GLOBAL ' 
20 54 52 57 4C 42 47 , ea 315 ASCIC ‘'GBLWRT ° 
20 4C 42 54 47 50 50 4 3 316 evens "PPGTBL ' 
$ 7 , 
20 4C 42 54 47 50 47 9" 28 S17 .ASCIC '"GPGTBL ' 
20 20 20 20 20 20 20 9° ; 318 LASCIC ' 
20 20 20 20 20 20 20 00° 319 SASCIC ' 
0 MODIFY_ TABLE 
00' 029 334 ~VASCIC °° 


"SiSEp=1986 03:33:38 USDALSRCIPROCESS “MAR; 1 


; SYSTEM COMMUNICATIONS 


Page 


; CLUSTER STATE TRANSITION 


; Process is waiting for the resource, 
3; mutex. 


NES = i at St P49 03:45:36 AX/VMS Macro V04-00 Page 9 | 


see 3, PRO INE 
v04- REA ONS S SDA.SRCJPROCESS.MAR; 1 (4) 


R ORMATTING ROUT 
E EF 1 
44 45 49 46 49 44 GF 4D 20 6 


0 
DATA DEFINIT 


322 eASCIC * MODIFIED' 
$57 WSLOCK_TABLE: 
4 -ASCIC 


woo 


4B 43 4F 4C 53 57 20 325 eASCIC * WSLOCK’ 


ip rrmoce nat 


| | 


4B 43 4F 4C 4E 46 50 20 328 »ASCIC * PFNLOCK' 


329 GOODPAGE _TABLE: 
0 TASCIC 


wooCoo BDBOOCOoO NOOO 


45 47 41 50 44 4F 4F 47 20 331 -ASCIC * GOODPAGE’ 


oooo OCOoOOoO COCO 


POIPMITIPOIPOPIPIPIPIPPIPINPINIPIPIPIPI PNP 


WBWOOWWOWIOWIOWIOr>rrrrooowowowownono rr 
WWI FOO OONN $$ |] “DOWN TN HMMM een =< 


3 
338 CHANBUSY_ TABLE : 
34 TASCIC " 


00° 


00 
20 79 73 75 42 oe. 335 »ASCIC ‘Busy ' 


0 
0 
; 
3 
02Cc $38 CHANDPND_TABLE: 
90° 8 : 7 -ASCIC °° 
20 64 6E 70 44 oe 8 2 338 -ASCIC ‘Dpnd ' 
O2CA 339 CHANSEC_TABLE: 
8" 8 $f 340 J ** 
66 20 6E 6F 69 74 63 65 73 28 20 00° 02CB 341 -ASCIC * (section file)’ 
29 65 6C 69 02D7 
Be 
0208 rk AST_TABLE: 
0208 44 CSTABLE 8 
0 4 45 cs NONE 
O02E #6 cs K 
ee 4 cs E 
F 48 cs KE 
Fe 49 cs S$ 
50 cs KS 
51 cs ES 
031 26 cs KES 
338 5 cs U 
54 cs KU 
55 cs EU 
2$ cs KEU 
4 5 cs SU 
4 28 cs KSU 
rh 5 cs ESU 
60 cs KESU 
8 61 
8 6¢ HDRSTR1: 
8 6 STRING <Process index: 'XW Name: !AF Extended PID: !XL> 
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DISPLAY_PROCS == DISPLAY PROCESS DATA -SEP-1984 SDA. SRCJPROCESS.MAR; 1 
9 65 .SBTTL DISPLAY_PROCS == DISPLAY PROCESS DATA 
EB i 
? 68 ; DISPLAY_PROCS 
4 29 : SHOWS INFORMATION ABOUT EACH PROCESS IN THE SYSTEM. 
92 f : INPUTS: 
32 rh : NONE 
0 22 i: : OUTPUTS: 
0 95 378: NONE 
95 79 ; 
Bye 
0395 8¢ DISPLAY_PROCS:: 
001¢ 0398 83 .WORD  “M<R2,R3,R4> 
0397 385 REQMEM @SCHSGL_PCBVEC,R : VECTOR OF PCB ADDRESSES 
0347 86 REQMEM @SCHS$GL-MAXPIX,R t GET MAXIMUM PROCESS INDEX 
54 D4 0387 388 CLRL RG : INITIALIZE CURRENT INDEX 
00000000'EF D4 0389 89 one CLRL — PROC_NAME :SET TO PREVIOUS PROCESS IN CASE OF ERROR 
51 6246 DE O3BF 391 "  MOVAL ss (R2) CR4],R1 ; ADDRESS OF POINTER TO PCB 
O3¢3 3¢ REQMEM (R1),PCBADR ; GET ADDRESS OF PCB 
03D 9 REQMEM @PCBADR,PCB,#PCBSC_LENGTH GET PCB 
00000064 "EF 85 O3e¢ 34 ist PCB+PCBSL BSL_Pip ; CHECK ir “PROCESS INDEX = 0 
54 8 O3F4 396 TSTL = RG ; CHECK IF NULL PROCESS SLOT 
50. «12 O3F6 97 ma, BNEQ 908 : SKIP IF NOT 
00000070" EF D5 O38 399 ; TsTL PCB+PCBSL_PHD ; sitet 
0400 401 REQMEM aPcB+PCBSL PHD, PHD, wPnost -LENGTH READ PHD 
ee er a Ch See 
60 00C8 C1 7D $4 $ 404 ova BHDSt _POBR(R1) , (RO) ; SETUP RELOCATION REGISTERS 
08 AO 9900 C1 7D 042C 405 OV. = PHDSL~P1BR(R1).8(RO) 
00000090" EF $0000064 "Er 50 135 409 30$ hove” Hse 4 et ets sh Roe RO OID OF PROCESS TO READ 
F 60 FB 44 408 wii CALLS #0,B*DISPCAY ROCESS > DISPLAY PROCESS INFORMATION 
0254 53 F3 rr 410  —- AOBLEQ:«-R3,R4, 1008 ; CONTINUE UNTIL DONE 
Qe WORE Bi sos, BABS 
451 418 1988; STATUS SUCCESS 
04 0458 414 RET 
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v04= DISPLAY_PROCESS == DISPLAY PROCESS INFOR 5=SEP=1984 SDA.SRCJPROCESS.MAR; 1 (6) 
4 416 -SBTTL DISPLAY_PROCESS == DISPLAY PROCESS INFORMATION 
4 418 : 
4 ‘18 : DISPLAY_PROCESS | 
459 401: THIS ROUTINE FORMATS ALL INFORMATION ABOUT A SINGLE | 
: | c ¢ § PROCESS GIVEN THE PROCESS CONTROL BLOCK. 
499 4 f : INPUTS: 
439 4 : : PCB = PROCESS CONTROL BLOCK FOR PROCESS 
138 428 : OUTPUTS: 
0459 429; 
0459 430; NONE 
0459 431; 
i in 
0459 434 DISPLAY ~PROCESS: 
003¢ 0459 435 .WORD “M<R2 R5> 
0074 8F 00 obbag 20 2¢ 0458 436 movcS #0, Re ,Rs Py iiasc _LENGTH,JIB § ; PRE=ZERO JIB IN CASE NOT THERE 
000002A4 ‘EF 00000084 'EF 009 ace? ‘3 MOVL PCB+PCBSL_JIB,JIBADR —; CHECK FOR JIB 
g474 439 = REQMEM @JIBADR,JIB,#JIBSC_LENGTH : GET JIB 
$2 SOSH BE ORHR pa tb 
0498 208 ALLOC 80,R ; 80 BYTE BUFFER FOR HEADER | 
64 a2 DD O4AD 444 PUSHL PCBSL_EPID(R2) + EXTENDED PROCESS ID 
4 A2 OF 0480 445 PUSHAB PCBST-LNAME+1 (R2) : PROCESS NAME 
7E Ag 9A 0483 446 MOVZBL PCB$T CLNAME (R2) ,=(SP) + PROCESS NAME 
0 DD 0487 447 PUSHL pCBSL_P (R2) : PROCESS INDEX 
a Ok bee tee PUSHER 
FE99 CF «OF «(04BE 0 450 PUSHAB HORSTR1 : FAO CONTROL STRING 
00000000 ' GF 07 FB ss 431 CALLS #7 .G°SYSSFAO : FORMAT TITLE STRING 
00000000'eF 01 FB 04CB re CALLS #1,SET_HEADING > SET NEW HEADING 
402 434 SKIP PAGE 
54 00000000'EF 00 0409 496 MOVL  OPTIO | 
54 «OFFFFFFBF 8F D3 4e0 45 BITL P CKOPTER. SYSPROC>,R4 ; CHECK IF ANY OPTION SPECIFIED 
04 13 04E 458 BEQL 10% : DEFAULT IS PC | 
0754 +04 «€7 aed 459 ad BBC #OPTSV_PCB,R4,208 : CHECK IF /PCB SPECIFIED 
000005B0'EF 00 FB OceD 461 nati CALLS #0,SHOW_PCB ; SHOW SOME PCB FIELDS 
54 0000042F 8F D3 ara ces "  BITL sconren, pum! - : IF ANY OF THESE OPTIONS CHOSEN | 
4FB «465 OPTSM"WSL! - | 
rt OPTSAcPPT = | 
4FB 46 PTSRTCHAND JR 
51 13 4FB OG BEQL : SKIP READING PHD IF NONE 
6C A2 DS O4FD 4 ° TSTL BCBSL_PHD(R2) + PROCESS RESIDENT | 
03 12 0500 47 BNEQ 25$ : XFER IF SO 


ee 4 


PROC PROCESS FORMATTING ROUTINES 16-SEP-1984 01:44:36 YAX/VMS Macro V04-00 Page 12 
vo4~000 DISPLAY PROCESS “= DISPLAY PROCESS INFOR |S-SEP-1984 03:33:38 Lapa SRCIJPROCESS MAR; 1 : 6) 
0088 31 473 BRW 1008 ELSE GIVE A WARNING 
473 258 REQMEM @PCBSL_PHD(R2), (R3) ,#PHDEC. SLENGTH ; READ PROCESS HEADER 
07:54 05 £1 0517 475 BBC ZOPTSV PHD .R4, 30S ; CHECK IF /PHD SPECIFIED | 
000007BA' EF Fe 0318 476 CALLS ; SHOW PROCESS HEADER | 
7 E1 477 30$: BBC rosT ty REGS, RG, 40S > CHECK IF /REGS SPECIFIED 
00000934 "EF FB 428 CALLS REGS ; SHOW SAVED REGISTERS | 
4 E1 D 479 40$: BBC ros tty OSL RG, 508 : CHECK IF /WSL SPECIFIED | 
00000A31 "EF FB 0531 480 CALLS #0, SHOO_ WSL ; SHOW WORKING SET LIST 
7 54 E1 0538 481 50$: BBC #OPTSv PST R4,608 ; CHECK IF /PST SPECIFIED | 
00000¢35 "EF Fe O53¢  4B¢ CALLS #0, SHOO_P ; SHOW PROCESS SECTION TABLE | 
07,54 Q1 ET O43 483 60S: BBC #OPTSY PP PPT .R4,70$ : CHECK IF /PPT SPECIFIED 
0000000/"EF 00 FB O47 48% CALLS ; SHOW PROCESS PAGE TABLES 
14 54 E} S46 485 708: BBC rosTeV. RAS /RG 808. ; CHECK IF /RMS SPECIFIED 
09.54 08 EO 055¢ 486 BBS  =—- #OPTSV-RMSO,R4 ; CHECK IF /RMS=... SPECIFIED 
QOOOOOOO'EF 00 FB 0556 4 CALLS FO, SHOR RAS ; SHOW CURRENTLY SELECTED RMS STRUCTS | 
07 11 055D 488 RB ; O NEXT OPTION 
00000000"EF 00 FB O55F 489 718: CALLS #0, SHOW_RMS_DIS ; SHOW RMS STURCTS SPECIFIED ON | 
1356 09 £1 O866 491 808: Bac #OPTSV_LCK,R4,85$ ; CHECK IF /LOCK SPECIFIED | 
90000000'" SF 056A 49 PUSHAB PCBADR ; PASS ON ADDRESS OF PCB IN SYSTEM 
00000004". F GF 0570 49 PUSHAB PCB ; PASS ON ADDRESS OF PCB COPY IN SDA 
OOOd0000"EF 02 FB 0576 494 CALLS #2, SHOW_PROC_LOCK ; SHOW LOCKS OWNED BY PROCESS 
07,54 QA £1 O70 496 85S: BBC HOPTSV_ CHAN. RG.90S ; CHECK IF /CHANNELS SPECIFIED | 
OOOOOF94*EF 00 FB 0581 497 CALLS #0,SHOO_CHANNELS ; DISPLAY PROCESS CHANNEL INFORMATION 
0388 499 90$: STATUS SUCCESS ; EXIT 
04 O58F 500 RET 
0590 301 
0590 502 1008: SKIP IN CASE ALL PROCESSES ARE DISPLAYED 
50 00000000'8F D0 0599 50 MOVL —-#<<MSGS_NOTRESG*XFFFFFFFB>!STSSK_WARNING>,RO SET STATUS 
Q5A0 504 SIGNAL 1 3 SIGNAL” WARNING 
9€ 11 O5AE 505 BRB 708 ; MUST RETURN SUCCESS TC TPARSE 
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ONTROL BLOCK SEP- SDA. SRCJPROCESS.MAR; 1 
: i .SBTTL SHOW_PCB == SHOW PROCESS CONTROL BLOCK 
B ; 
38 { : SHOW_PCB 
58 1 : THIS ROUTINE FORMATS SOME INTERESTING FIELDS IN THE 
38 13 PROCESS CONTROL BLOCK FOR EASY READING. 
58 15 : INPUTS: 
58 2 : PCB = CURRENT PROCESS CONTROL BLOCK 
35 19 :  QUTPUTS: 
5B 1: NONE 
58 gi 
Bh gt 
580 5 SHOW_PCB: 
0004 0580 : “WORD “M<R2> 
52. O0000004'EF ODE 0582 8 MOVAL P B,R2 
0501 2 0 ALLOC 8 ; 80 BYTE OUTPUT BUFFER 
24 a2 DD O5E0 331 PUSHL PCBSL_STS(R2) + PROCESS STATUS 
FABO CF «9F «(05E3)— C5 : PUSHAB PROCESS STATUS : BIT DEFINITION TABL 
Q0000000"EF O02 FB OSE7 5§ CALLS #2, TRANSLATE_BITS : TRANSLATE BITS INTO NAMES 
3E DD OSEE 534 PUSHL SP t ADDRESS OF RESULT DESCRIPTOR 
24 A2 OD 03k 3 5 PUSHL PCBS$L_STS(R2) 
OSF 36 PRINT 2,<Process status: !XL 'AS> 
ete ag ee 
QO0002A4"EF DD 0609 539 PUSHL JIBADR : ADDRESS OF JIB 
00000000'EF dD O60F 340 PUSHL BCEADR t ADDRESS OF PCB 
0615 348 PCB address . \ 
O33 544 JIB address 'XL> 
20 A2 DD COG ; 45 PUSHL PCBSL_WSSWP(R2) 
6C Ao OD 6 3 46 PUSHL BCBSL_PHD(R2) 
06 $3 PHD address ; XL - 
8 49 Swapfile disk address 'XL> 
OO00ZEC EF pp 06 29 PUSHL JIB+JIBS$W_PRCCNT 
OOOO2FC’EF 0D 636 3 PUSHL 1B+J 18S. -MPID ; MASTER PID 
641 54 Master internal PID XL = 
rh 55 Subprocess count '8UW> 
1¢ nz DD 64 3§ PUSHL PCBSL_OWNER(R2) : CREATOR PID 
60 A2 OD 691 38 PUSHL BCBSLPID(R2) 
654 560 Internal PID r , 
928 3 Creator internal PID 'XL> 
68 A2 DD +0661 8 PUSHL PCBSL_EOWNER(R2) ; CREATOR EXTENDED PID 
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TRANSLATE TO STATE NAM 


64 A2 DD 0664 64 PUSHL PCBSL_EPID(R2) ; EXTENDED PID 
667 65 PRINT 2,<* 
667 96 Extended PID 'XL - 
967 ? Creator extended PID 'XL> 
3é A DD 0674 $3 PUSHL PCBSW_TMBU(R2) 
02 CA B1 677 0 CMPW 4 $w- _STATE(R2) ,ASCHSC_ oe * ; CHECK FOR MWAIT 
é 12 0678 71 BNEQ 1 3 7 Eat AL E 
DD 067D ts 10$: PUSHL R2 3 SAVER BETERMINE RESOURCE WAIT STATE 
rans A 44 67F 7 OVL PCBSL_EFWM(R2) ,R2 3; RESOURC 
FADS CF E 6 ; 74 MOVAB RESOURCE_WAIT R3 3; ADDRESS oF “TABLE OF STATES 
Bono Bh F 16 06 75 JSB GETRANSLATE ADDRESS ; DETERMINE STATE 
E i) 68E 6 MOVL ieee 3; RESTORE 
1 691 7 BNEQ 12$ ; MATCH FOUND, IF NOT EQUAL 
4C A D 693 4: TSTL PCBSL_EFWM(R2) ; CHECK FOR MUTEX ADDRESS 
OA 18 0696 7 GEQ 15$ ; BRANCH IF NOT ADDRESS 
FBSF CF oF 698 580 PUSHAB MWAIT ; ADDRESS OF MUTEX COUNTED STRING 
OD 11 69C 581 B 20$ 3; DISPLAY 
50 0D 69 286 12$: PUSHL RO ; ADDRESS OF RESOURCE WAITING FOR 
09 11 += «O6A 8 BRB 20$ ; DISPLAY 
06A 584 15$: 
2C A2 3C 606A 2? MOVZWL PCBSW_STATE(R2),R1 
F974 CF41 7F Q6A6 586 PUSHAQ STATE ~TABLECR1] 
06AB 587 20S: 
06AB oe PRINT 2,<= 
06AB 89 State 'SAC - 
06AB 590 Termination mailbox 'XW> 
0688 591 
51 OD A2 9A 0688 296 MOVZBL PCBS$B_ASTEN(R2),R1 
FCIA CF41 7F OQ6BC 59 PUSHAQ AST_TABLECR1) 
7E OB A2 9A 06C1 594 MOVZBL PCBSB_PRI(R2),-(SP) 
6E 1F 6E C3 06C5 595 SUBL3 (SP), #31, (SP) 
0609 596 INT 2,<- 
06C9 597 Current priority '8UB - 
06C9 598 AST's enabled '4AC> 
0606 599 
51 OC A2 9A 06D6 600 MOVZBL PCBSB_ASTACT(R2),R1 
FBFC CF41 7F Q6DA 601 PUSHAQ AST Maye 
E 2F A2 9A O6DF one ae PCBSB_PRIB(R2) ,-(SP) 
1F 6E C3 06E3 60 UBL (SP) #31, (SP) 
poe? 604 PRINT s<* 
6E7 605 Base priority '8UB - 
eH 006 AST's active '4AC> 
38 A DD 6F4 608 PUSHL PCBSW =ASTENT (Re) 
OOBC C DD 6F7 609 PUSHL PCBSW_MEM(R 
OOBE C DD 6FB 610 PUSHL PCBSW_ GRP(R } 
6F F 611 PRINT 3,<- 
6FF O16 vIC C!30w, !30w) - 
or ei? AST's remaining iBuw> 
CA 0D 70¢ 615 PUSHL PCBSW_BIOLM(R2) ; BUFFERED 1/0 LIMIT 
AA 0D 70F 916 PUSHL he TRUBS ; BUFFERED 1/0 COUNT 
EA DD 71 61 PUSHL PCBSW_MTXCNT(R2) 3; MUTEX COUNT 
71 913 PRINT 3,<- 
71 619 Mutex count _ . $BUW - 
71 620 Buffered 1/0 count/Limit  '6UW/!UW> 
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PCB == SHOW 


? § 1 
40 A DD Q?7 § 
se Ag DD Q7 6 
EA DD QO? 624 
ee 
? 6 $ 
? 6 8 
4439 Be DD 07 6 
OOOO2CS'EF DD QO73E 630 
28 A2 D «(0744 631 
747 6 § 
747) 6 
0747 634 
0754 635 
Q00002D8"EF dD Bre 6 § 
4C A2 DD QO75A 6 
075D oes 
Q75D 639 
0750 640 
076A 641 
QOOOO2DC*EF DD 076A 66g 
50 A2 «DD 077 64 
077 644 
077 645 
144 646 
780 39647 
2 oD 144 648 
2 0D 0783 649 
0786 650 
0786 651 
6788 636 
079 65 
2 0D 0793 654 
2 0D 0796 655 
0799 656 
0799 657 
0799 658 
Q7A6 659 
34 A2 DD O7A6 660 
5C A2 DD O7A9 = «661 
7AC = 66 
O7AC 66 
Bra 664 
78 66 
04 0789 666 


eae t FORMATTING 
SHOW _ P 


E 6 
ROCESS CONTROL BLOCK  'SaxEpaione Ob eg88 


PUSHL PCBS$W_DIOLM(R2) 
PUSHL PCBSW_DIOCNT(R2) 
PUSHL CBSB_WEFC(R2) 
PRINT <- 

Waiting EF cluster '8UB 

Direct 1/0 count/ Limit '6UW/ ! UW> 
PUSHL JIB+JIBSL_BYTLM 
PUSHL JIB+JIBSL easy 
PUSHL PCBSL_WTIME(R ) 
PRINT 3,<= 

Starting wait time 'XL 


n ! 
byte count/Limit T6UL/!UL> 


PUSHL JIB+JIBSW AY al 
phiat eo EFWACR 


Event flag wait mask 'XL - 
# open files = Pewee left !6UW> 


PUSHL JIB+¢JIB$SW_TQCNT 
PUSHL PCBSL WEFCS(R2) 
PRINT 2,< 
Local EF cluster 6° XL - 
Timer entries allowed left Seuu> 


PUSHL PCB$W_APTCNT(R2) 
PUSHL pcest EF CUCR2) 
PRINT 
Local EF cluster 24 'XL - 
Active page table count Teuw> 


PUSHL PCB$W_PPGCNT(R2) 
peint pe EFC2P(R2) 


Global cluster 2 pointer 'XL - 
Process WS page count '6UW> 


PUSHL PCB$W_GPGCNT(R2) 
att ecett EFCSP(R2) 


rt 
BUF IO 


Global cluster 3 pointer XL - 
'6UW> 


¢ Global WS page count 


RET 
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PROC process FORMATTING ROUTINES 16-SEP-1984 01:44: AX/VMS Macro V04-00 Pp 
VOes000 SHOW_PHD == SHOW PROCESS HEADER mii oets 7 83:33:38 SDA.SRCJPROCESS.MAR; 1 re 
7BA 66 ~SBTTL SHOW PHD == SHOW PROCESS HEADER 
7BA 670 = 
7BA 671 ; SHOW_PHD 
7BA 676 3 
how of? ; FORMAT THE FIELDS FROM THE PROCESS HEADER. 
7BA 675 ; INPUTS: 
7BA 676 3 
7BA 677 ; PHD = PROCESS HEADER BLOCK 
7BA of8 3 
7BA of 3 OUTPUTS: 
7BA 0; 
7BA 681 ; NONE 
7BA 6 ¢ : 
7BA re ;--- 
O7BA 684 
O7BA 685 -ENABL LSB 
O7BA 686 
Q7BA 687 SHOW_PHD: 
0004 Brea one » WORD “M<R2> 
52 00000128 'EF DE i424 690 MOVAL PHD ,R2 ; ADDRESS OF PROCESS HEADER 
07C¢ 691 SKIP . 
07C¢C $36 ENSURE 12 
O7E4 69 PRINT 0,<Process header> 
O7F1 694 PRINT 0, <eeecneecccceee 
O7FE 695 SKIP 1 
38 A2 DD 0807 696 PUSHL PHD$L_CPUTIM(R2) 
28 Ad DD O80A 697 PUSHL PHDSL_FREPOVA(R2) 
080D 698 PRINT 2,<- 
080D 699 First free PO address '8XL!4* = 
080D 700 Accumulated ee '8XL> 
3C A2 DD OB81A 701 PUSH bipty QUANT (R2) 
2c Ad DD 0810 70 PUSHE PHD SL _ _FREPTECNT(R2) 
0820 70 PRINT 
+43 704 Free PTEs pega “P0/e' 'BUL'4* = 
0820 705 CPU since last q '8xW> 
OQOOOOOZEE'EF DD O08 3 706 PUSHL TBS TBSW PRCLIM 
30 A2 OD 83 707 PUSHL PHDSL _FREPIVA(R2) 
836 6708 PRINT 2,< 
0836 709 First free P1 address i gx 4s - 
8 § 710 Sumprecess 5 unt 
40 A2 DD + 711 *PHDSW ASTUNER ) 
000002E4 ‘EF DD 46 ar PUSH “3 1B+JTBSL _PGFLCNT 
84C «= 71 PRINT 
084C 714 Free page file pages ieee - 
Sef 715 AST Li UW> 
ag 85 at PUSHL PHD$SW_PHVINDEX(R2) 
34 DD 85C 71 PUSHL pHOSB_ _DFPFC(R2) 
th at PRINT 
5F 719 Page fault cluster yn } UB 4* ~ 
SF 720 Process header index i 8xw> 
44 a2 DD 086C 721 PUSHL.  PHDSL _BAK(R2) 
35 A 0D of 4 ¢ eye pHOSB_ “POT BEF C(R2) 
“ 724 Page table Re size 'BUB!4* - 
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PROC PROCESS FORMATTING ROUTINES 16-SEP-1984 2446: AX/VMS Macro V04-00 Page 17 
VOns000 SHOW_PHD == SHOW PROCESS HEADER g- at 4 9 84:33:38 SDA.SRCJPROCESS.MAR; 1 . (8). 
72 725 Backup address vecto ae 
48 . 0D 7F 7 § PUSHL PHDSL -WSLX(R2) 
36 A DD f PUSH ‘es FLAGS (R2) 
7 § Flags i - 
7350 WSL index save are '8XL> | 
ef Ag 0D 4 1 PUSHL PHD Sw -PTENTLCR(R2) 
GA i) 9 ¢ PUSHL PHOSL_ DIOCNT(R2) 
89 7 PRINT 2,< 
89 734 Direct 1/0 count 'BUL!4* = 
89 735 PTs havin Lockeg WSLs '8UW> 
3 Ag DD A 7 § PUSHL PHDSW_PTCNTVAL (R2) 
A DD OBaB f PUSH “ySenatpeeatbanes 
O8AB 7? § Buffered 1/0 count 'BUL!4* = 
08 740 PTs having valid WSLs i 8UW> 
20 AZ DD 08BB 741 PUSHL PHDSW_PTCNTACT(R2) 
SC A DD zor oe PUSH BHDSL. CPULIM(R2) 
O8BE 744 Limit on CPU tine 1BXL 14s - 
OBBE 745 Active page tab ig 
2 A2 DD Bare es Se osu PTCNTMAX(R2) 
QOOOOZEO'EF ODD ti ee PUSH aaa PGFLQUOTA | 
0804 749 Maximum page othe A ctts i GUL 4s - 
Q8D4 750 Maximum active P UW> 
74 A2 DD O8E1 751 PUSHL phosy JWSFL vid«Ra) 
4C A2 OD te: P36 et ie PAGEFLTS(R2) | 
O8E7 754 Total page faul UL tae ~ 
O8E7 755 Suerantese. fluid: WS popes 
76 A2 DD O8F4 £26 SHL PHDS$ oF vimas (RQ) 
QOOOO2DA'EF DD O8F7 75 PUSHL 1B+JTBSW_FILLM 
SBED a8 File iw = UW'4e - 
O8FD 760 Extra dynamic WS entries UW> | 
64 A2 DD OQO90A 761 PUSHL PHDSL Fist gtcKcnay 
OOOOO2DE'EF ODD Bay £66 PUSHE che | 
34 Timer queue Limit jeunes ~ 
91 765 Locked WSLE counts arra ay 1g | 
09 g 6 PUSHL PHDSL_P usuiver <R2) 
a3 ; PUSHL BHDSL PAGF IL (Re) 
926 Paging file index 'BXL!4® = 
83 id WSLE counts array '8xXwW> | 
09 RET 
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PROC PROCESS FORMATTING ROUTINES “SEP=1984 01:44: AX/VMS Macro V04-00 p | 
fives SHOULREGS ~~ SHOW SAVED PROCESS REGISTER SesePalone Hbiahies PeRaMee Heer YO4u00 soe 13, 
3 4 77 .SBTTL SHOW_REGS == SHOW SAVED PROCESS REGISTERS | 
ih | 
934 16 | 
3 ‘ i : SHOW_REGS 
; 4 13 ; DISPLAY THE SAVED PROCESS REGISTERS 
934 781: INPUTS: | 
934 Pee i 
4 r f 7 ; PHD = CURRENT PROCESS HEADER | 
934 785; OUTPUTS: 
934 7 § : 
934 7 : NONE 
0934 788; | 
0934 789 ;--- 
0934 790 
0934 791 SHOW_REGS: 
0004 0934 3¢ ~WORD “M<R2> 
0936 = 79 | 
0936 794 SKIP 3 | 
O93F 795 ENSURE 
0957 796 PRINT 0,<Saved process registers> 
0964 797 PRINT 0,< eecescoesoeooesoeoecocea > 
971 798 SKIP 1 
52. 00000128'EF dE O97A 799 MOVAL PHD,R2 : ADDRESS OF PROCESS HEADER 
0094 C2 DD 0981 800 PUSHL PHD$L_R3(R2) | 
0090 C2 DD 0985 801 PUSHL PHD$L~R2(Re) | 
008C C2 DD 0989 80¢ PUSHL PHD$L"R1(Re) 
0088 C2 DD 098D 80 PUSHL PHDSL“ROCR ) 
0991 804 PRINT 4,< cin @ sim 28 cima a8 © tus 
QOOA4 C2. DD 0996 805 PUSHL PHD$L_R7(R2) 
OOAO C2 «=D «OO9A 806 PUSHL PHD$L~R6(Re) 
009C C2 DD 0946 807 PUSHL PHD$L~R5(Re) 
0098 C2 DD O9AA 808 PUSHL PHD$L—R4(R2) 
O9AE 809 PRINT 4,<R4~ = 'XL RS = !XL RO = IXL R7 = !XLD 
0084 C2 OD 09BB 810 PUSHL PHDSL_R11(Re) 
00B0 C2 DD O9BF 811 PUSHL PHD$L~R10(Re) 
OOAC C2 DD 09C 12 PUSHL PHDSL_R9(R¢) | 
QOOA8 C2 «OD COOL 81 PUSHL PHD$L~RB(R2) 
09CB 814 PRINT 4,<RB” = ‘XL RO = !XL R10 = !XL RIT = !XL> 
00¢4 C2 DD 0908 819 PUSHL PHDS$L_PSL(R2) 
00CO C2 «DD «O09RC 16 PUSHL PHD$L~PC(R2) 
OOBC C2 =DD O9EO 81 PUSHL PHDSL-R13(RQ) 
0088 C2 DD O9E4 818 PUSHL PHDS$L-R12(Re) | 
ges 19 PRINT 4,<AP~ = 'XL FP = '!XL PC = !XL PSL = !XL> 
0084 C2 DD 09F 0 PUSHL PHD$L_USP(R2) | 
0080 C2 DD 09F9 1 PUSHL PHDS$L~SSP(Re) | 
C Ao DD O9FD : PUSHL PHDS$L-ESP(R) | 
78 A2 DD a0 PUSHL PHDSL~KSP(R2) 
A 4 PRINT 4,<KSP = !X ESP = '!XL SSP = '!XL USP = !XL> | 
D4 C2. DD OAI10 5 PUSHL PHDS$L_PILR(Ro) | 
9900 DD OA14 6 PUSHL PHDSL PIBR(R ) 
7E Oocc C2. (1 EF OA18 EXTZV #PHD$V_POLR, #PHD$S_POLR,PHDSL_POLRASTL(R2) ,-(SP) 
00c8 C2 «DD SCOOANF 8 PUSHL PHD$L_POBR(R2) | 
Ags ; PRINT 4,<POBR = 'XL POLR = !XL  PIBR= !XL  PILR = !XL> 
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831 


RET 
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Ct ab ts TINGS +2 i ts Sth 9 04:44:36 AX/VMS Macro v04-00 Page (78 


ET LIST “SEP=19 SDA.SRCJPROCESS.MAR; 1 


. } ; -SBTTL SHOW WSL == SHOW WORKING SET LIST 
A31 23 
n } § ; SHGW_WSL | 
A31 8 ; THIS ROUTINE FORMATS INFORMATION ABOUT THE PROCESSES 
r } if 3 WORKING SET LIST FROM THE PROCESS HEADER. 
A31 «841: ~~ INPUTS: | 
A31 r ; 
. ! rf ; PHD = PROCESS HEADER BLOCK | 
A) 45; OUTPUTS: | 
A31 +8 é | 
A31 ae 3 NONE 
0A31 48 ; 
0A31 49 ;<<- | 
0A31 50 
0A31 51 -ENABL LSB 
0A31 26 
0A31 He SHOW_WSL: 
007C 0A31 54 WORD “M<R2,R3,R4,R5,R6> 
0A3 855 
0A3 856 KIP 
OA3C = 8857 ENSURE 
OAS4 = 858 PRINT ,<Working set informet tons 
0A61 = B59 PRINT 0), <eneeeccccccccccccceccce | 
OAGE 860 SKIP | 
52 00000128"EF DE OA? 861 MOVAL PHD,R2 | 
53 (08 A 3C OA7E 86¢ MOVZWL PHD$W_WSLIST(R2) ,R3 ; BIAS TO WORKING SET LIST 
5 D7 OA82 86 DECL R3 J 
7E OA A2 53 C3 OAB4 864 SUBL3 R3,PHDSW WSAUTH(R2), ~<se} - CURRENT AUTHORIZED SIZE 
8 A2 DD OA89 865 PUSHL PHOSW WSCIST(R Re) : ist wsL ENTRY 
OA8BC 66 PRINT <First WSL x 'X Current suther ized working se 
7E A A2 53 C3 OA99 867 SUBL3 43° PHDSW DFustnT 2) ,-(SP) DEFAULT WORKING SET SIZE 
OC A2 DD OASE 868 PUSHL PHOSW _WSCOCK(R2 187 L CKED WSL ENTRY 
QOAA1 869 PRINT <Fifst locke 1X xu Default (initial) working set 
7E 18 A2 53 C3 OAA 870 SUBL3 Rss PHDSU Wsauo oAtRss: = (SP) MAXIMUM WORK ING SET ALLOWED 
OE A2 DD OAB 71 PUSHL PHOSW WSBYN(R2) : 181 DYNAMIC ENTRY 
OAB 1h PRINT 1,< iret gynenie entry XW Maximum working set allowed ( 
10 A2. DD OAC 7 PUSHL pinsu sWSNEXT (R2) : LAST ENTRY REPO ACES 
AC 74 PRINT 1,<Last entry replaced XW> 
12 A2. DD OAD 75 PUSHL Pins LWSLAST(R2) _ : Last ENTRY IN LIST 
4 6 PRINT ast entry in list W> 
08 A2 «BS OAE 7 TSTW bas Q _WSLIST(R2) : CHECK IF REASONABLE 
1 14 OAE 78 BGTR 5$ : BRANCH IF 
04 OAE 79 RET 
AE 0 5$: 
AEQ 1 SKIP 
AF 2 ; ENSURE | 
OA PRINT ,<Working set List> | 
17 4 PRINT oe oe 
a Wa 4 5 MOVZWL PHDSW_WSLAST(R2), Re ; LONGWORD OFFSET TO LAST ENTRY 
28 8 § INCL ; LONGWORDS IN PHD+WSL 
56 56 9 A ASHL #2,R6,R6 : = LE BYTES 
6 DD F 8 PUSHL ; LENGTH TO ALLOCATE 
00000000'EF 01 FB OB 9 CALLS #1,ALLOCATE 3 ALLOCATE SPACE FOR PHD+WSL 


re cE SS 


00000¢13' 
00000000 EF "e 
4 


00000000' 
00000000" EF 


50.62 
04 50 


VMivIinw WMolf 
MCOuM DWwow 
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50 

sn BH & 
FOEA CF41 

51 50 01 04 
F6D6 CF41 

ee. oe) 
F6C3 CF41 

51 50 01 08 
FOAE CF41 

ms fw  §¢ 01 


F664 CF41 
51 50 2 00 


F652 CF41 
7E 50 000001FF ef 
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R1,R2 ; ADDRESS OF PHD/WSL BUFFER 
aF CBsPCBSL_PHD, (R2) ,R6 ; GET ENTIRE WORKING SET LIST 
; SKIP IF CANNOT BE READ 


#0,WSL_TITLE PRINT THE HEADING LINES 
WSL_TITLE, HEADING pour ine - SET HEADING ROUTING 
PHDSW_WSLIST(R2) ,R3 : STARTING INDEX OF LIST 
PHDSW-WSLAST(R2) .R4 + LAST ENTRY TO D 
R3 : ADJUST FOR FIRST ITERATION 
R5 : EMPTY WSLE COUNT 
R ; INCREMENT INDEX 

R3_R4 : CHECK IF DONE 

20$ : BRANCH IF OK 
HEADING_ROUTINE : CLEAR HEADING ROUTINE ADDRESS 
RG : LENGTH OF B 

as ; ADDRESS OF PHD+WSL BUFFER 
#2, DEALLOCATE + DEALLOCATE BUFFER 
(R2)CR3],RO : GET ENTRY 
#WSL$V_VALID,RO,30$ + BRANCH IF VALID 

RS : INCREMENT EMPTY ENTRIES 
10$ 
RS : CHECK IF EMPTY ENTRIES 
40$ : BRANCH IF NOT 

Re 3; SAVE PENDING WSLE 

1 

\e<t. ---- !UL empty entries> 
RS : RESET EMPTY WSLE COUNT 
RO : RESTORE PENDING WSLE TO SHOW 


#WSLSV serait #1,R0,R1 


GOODPAG 


#WSL$V PENLOCK a, 180. R1 


PFN. OCR_TABLE 
yust $v “Ostock #1,R0,R1 
WSLOCK"TABLELR1) 
#WSLSV-MODIFY Hi .RO.R1 
DIFY “TABLECR1)_ 


MO 
oust Sy -PAGTYP ,AWSLSS_PAGTYP,RO,R1 


PAGTYP~TABLECR1] 
Hussy Tat iD #1,RO,R1 
VALID_TABLECR1) 


ax 1FF,RO, att : VIRTUAL ADDRESS 
: INDEX 

i <!o XW XL ‘AC '5(AC)> 

16$ 

LSB 


THIS ROUTINE PRINTS THE HEADING LINES FOR EACH PAGE 


L 6 
PR PR FORMATTING ROUT “SEP=-1984 01:44: - PF 
ives fii CHOU USL oe SHOU CORRING Ser LIST "OrSee ii oke Oaiasiss Lena Mee Haere yOen0o | =| Page 78. vC 
OF THE WORKING SET LIST DISPLAY. 
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WSL_TITLE: 


0000 » WORD 


y) 
1 
4 9.<! INDEX ADDRESS STATUS> 
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_..  *SBTTL_ SHOW_PST == SHOW PROCESS SECTION TABLE 
SHOW_PST 
DISPLAY THE PROCESS SECTION TABLE 
; INPUTS: 

; ; PHD = PROCESS HEADER BLOCK 
; OUTPUTS: 

; : NONE 

Bia 


-ENABL LSB 


SHOW_PST: 


OOFC WORD “M<R2,R3,R4,R5,R6,R7> 


WDODODOODOOOOOOOOOOOOOOOOOOOOODOOWOOOOOO 
50.00.09 09 09 09 09 09 09 09 09 SI NIN SINISE A AA AAAOOOOutn 
SOOWONAUE WN $ O ODNOAU EWN OOONOAU SW OOon 


SKIP é 
ENSURE 
PRINT oreo section table information> 
cris. 9 CPt Pe eee cere eee eeeeseseeesccecc= 
52 00000128'EF ODE MOVAL PHD,R2 
24 A2 DD PUSHL PHD$W_PSTLAST(R2) ; LAST PST ENTRY ALLOCATED 
PRINT <! st eneey allocated 'XW> 
26 A2- OOD PUSHL PHD$Q_PSTFREE(R2) 
NT 1,<! Pirst free PST entry 'XW> 
24 A2~ BS TW PHD$Q_PSTLAST(R2) 3; CHECK IF REASONABLE 
01 Ay $ 5$ : BRANCH IF OK 
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“i 
bad 


PRI 
TS 
BLS 
991 RET 
SKI 
ENS 
PR 
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INT -<Process section table> 

THe ; PRINT TITLE LINE 


00000DBS'EF 00 
EADING_ROUTINE SET HEADING ROUTINE 


QOO00000"EF O00000DB5'EF 


BIQWONOAAOAANQAOHOHAAHAAAAAAAAAAAHAAAAAAAHAAAHAAAAAAOHAOAOOO 
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FB 
9 ; 
A 5 999 CVTWL PHDSW_PSTLAST(R : LAST gATRY ALLOC 
57 20 a2 00000070'EF 1 1000 ADDL PCBsPCBSL PHD,PHD$L_PSTBASOFF(R2),R7 ; BASE ADDRESS 
54 6740 DE 1001 MOVAL (R DER 1, R4 ; ADDRESS OF LOWEST ENTRY 
7 2 £ 1 : SUBL2 R4,R : LENGTH OF PST IN US 
57 DD 0009 100 PUSHL 7 : LENGTH TO ALLOCA 
00000000'EF 01 FB DOB 1004 CALLS #1,ALLOCATE : ALLOCATE PST BUFFER 
56 51 dO Odi2 1005 MOVL R1.R6 : SAVE ADDRESS OF PST BUFFER 
p15 1 06 GETMEM (R4),(R6),R7 : GET USED PART OF PST 
p 0 RETIFERR : SKIP IF ERROR READING 
53 57 dO OD26 1 13 MOVL R7 Rs ; SET LENGTH OF PST TO SCAN 
54° 6647 E D291 10 MOVAB (RO)CR7].R4 : FIRST ENTRY + 1 
55 D p oa CLRL RS : INITIALIZE PST INDEX 
54 20 C2 ODF 1 i SUBL2 #SECSC_LENGTH.R4 : DECREMENT ADDRESS 
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vou=608 SHOM.PPT ==" SHOW PROCESS PAGE TABLES ScSEP=1984 OS:95:39 LSdaveRcTPROcess mans1 28 (43, 


~-SBTTL SHOW PPT == SHOW PROCESS PAGE TABLES 


SHOW _PPT 


THIS ROUTINE DISPLAYS THE CONTENTS OF THE PO AND 
P1 PAGE TABLES FOR THE CURRENT PROCESS. 


INPUTS: 
PCB = PROCESS CONTROL BLOCK 
ESS HE 
} 


OUTPUTS: 
NONE 


: PHD = PROC ADER BLOCK 
SHOW_PPT: 


003C -WORD “M<R2,R3,R4,R5> 


QOOOOOOO'EF 00 

5 4's ed ‘EF 

5 000128'EF 
00000000" EF 00008000 8F 


LSB 
CALLS #0, INIT_PFN ; SETUP ACCESS TO PFN DATA BASE 
MOVAL  PCB,R 


HDR 
BITL Mapai cs pete ; SPECIFIC ADDRESSES? 


109 09 09 09 C8 SINS SISSIES NSA AA AAOAAAOOU 


MEAN 9 OOO NE WIN SO OOD NAME WIN © OD NAME WIN 0 OD NOU EW OOODNOAOUE Us" O00 
@ 
m 
aD 
is 


07D OM NOOO OLN 


100$ 
#OPTSM_PO_PPT!OPTSM_P1_PPT, O eS SPECIFIC PAGE TABLES? 


BBS #OPTSV_PO_PPT, OPTIONS, 208 * PO NOT REQUESTED 
108: SKIP 


PRINT 8 re page tables 


OOF 
00000000"EF 00001800 oF 
70 OOOOOOOO'EF 0B 


m—OWwW—-o7T0" 
ww 
Sf 
wo 
~~ 
=< 
_ 


Wi WM Nw 


PUSHL PCBSL_PHD(R2) ; ADDRESS OF PROCESS HEADER 
PUSHL PHDSL~POBR(R3) ; ADDR RESS F PO PAGE T ABLE | 

PUSHL #0 6 ADDRE a BEING MAPPED 

EXTZV #PHDSV POLR. #PHDS$S_POLR, busin POLRASTE CR ),-(SP) ; ‘NUR ENTRIES 
CALLS #4,DUMP_PTE ; FORMAT PAGE TABLE 


6C ag 
00c8 3 DD 

7E 00CC C3) 618 ~=00 
QOO000000'EF 04 FB 


BITL #OPTSM_PO_PPT!OPTSM_P1_PPT,OPTIONS ; SPECIF'C PAGE TABLES? 


OSS OUAT ann RO TR SRRRSSSSCSSSSSSSSSSSSSESSSSS 


sae 
SOPOMONM—FO OMM YOM >» VM BRO 


MMMM MM MMMM MmMMMMmmMmmMmmMmmmmmmmmmmmmmoOOCCOCUCVTVUVOUOTVCTVTVOTVCVTVTVTVVCOVTVTVTVTVTVTVTVTVTCTCS 
ee ee ee ee ee ee ee ee ee en ee en en ee et ee ee ee ee ee et ee ee ee ee ee ee ee ee ee ey 


OOOO OOCOCOOSOOCOCOO OOOO OSOOSOOOOOOOOOOOCOOCOOOOOOOoOOOO 


00000000°EF 00001800 er o 
8 BEQL NO 
75 O0O00000"EF OC €E1 208 +4 #OPTSV_P1_PPT, OPTIONS, 90$ ; Pl NOT REQUESTED 
ENSURE 
A PRINT ot page teptes 
B PRINT weeeceeeoeecan 
B SKIP 
51 0004 C3 OD C MOVL PHDSL_PILR(R3),R1 ; GET PILR 
eee C BEQL 90 ; SKIP IF ZERO 
51 Sozoppee gf 1 5 C SUBL3 Ri. QR ARO RI ; TOTAL pasts ALLOCATED 
5 1 9 D ASHL ; SIZE OF Pl SPACE IN BYTES 
6C A DD D PUSHL PCBS (R2) ; ADDRESS OF PROCESS HEADER 
52 0004 C dO D MOVL PHDSL “PIER CRS), R2 ; GET NUMBER OF PAGES 


ae 
roche SSERSSTOUMILIMGASOLE'Ghce vances TECSERCISSE SU:SHEEE SCYMRGRASEeAMR,, YG 
$ 


ft) 
C 
0 
8 


90p0 D342 D EES 1116 PUSHAL aPHDsL PIBR(R3)CR2) ; STARTING ADDRESS OF TABLE 
7E 80000000 8F C3 OEE? 111 SUBL #°X80000000,-(SP) : STARTING ADDRESS BEING MAPPED 
DD OEFEF 111 PUSHL : TOTAL PAGES IN TABLE 
Q0000000'EF 04 FB EFI i CALLS peepee : FORMAT PAGE TABLE 
04 ee 1 90S: RET 
EFS 11 g 100$: SKIP 
FO2 1104 ENSURE 
FIA 1125 RINT »<Process page table> 
F 7 11 § PRINT *< eeeeceeoeoeeeesooeecea 
F34 11 SKIP 
6¢ A2 DD OF3D 11 8 PUSHL PCBS$L_PHD(R2) : ADDRESS OF PROCESS HEADER 
51 Q0000000'EF 00 F40 11 MOVL  €ESP,RT + EXPRESSION STACK 
1 D OF47 1130 MOV (R15, R4 ; RS = LOW LIMIT 
03 00000000'EF OD £0 OFSA 1131 BBS #OPTS$V_PPT_LEN,OPTIONS,110$ ; Re Is ALREADY LENGTH 
: =e F3¢ 11 : SUBL  R5,R4 ~ : Get LENGTH 
5S O1FF BF «OC AA.s«OOF SS) «11331108: =BICW = #®XTFF,RS + ROUND DOWN 
54 OO0003FF BF CO FSA 1134 ADDL a*XStt R4 
54 54 F7 BF F61 «1135 ASHL R4_RG : NUMBER OF PTE'S 
00c8 C3. «DD «OCOF66 O11 : PUSHL a POBR(R3) + ASSUME PO 
51 55 £9 8 78 OF6A 11 ASHL #-7,R5,R1 : OFFSET IN PAGE TABLE 
12 55 3 E1 OF6F 1138 BBC #30.R5.120$ + IT WAS PO 
6— 0000 ¢ 09 OF 73 1139 MOVL PHOS. P1IBR(R3), (SP) : USE P1 
51 55 40000000 &F F78 1140 SUBL3 #*X40000000,R5.R1 
51 51 FO BF 78 £80 1141 ASHL = #=7,,R1,R1 : OFFSET IN PAGE TABLE 
6E 51 CO OFB 1148 120$: ADDL  R1,(SP5 
55 «Db «OOF8B «O114 PUSHL RS ; BASE 
54 ODD FBA 1144 PUSHL 4 : NUMBER OF ENTRIES 
00000000'EF 04 FB OF ¢ 1145 CALLS #4,DUMP_PTE : FORMAT PAGE TABLE 
04 OF9 1146 RET 
OF94 114 
OF94 1148 


-DSABL LSB 
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process PROCESS FORMATTING ROUTINES 1 mi teehs 9 0439: 98 AX/VMS Macro V04-00 Page 44 
v04-00 SHOW CHANNELS == DISPLAY ACTIVE CHANNELS 5-SEP=1984 03:35: SDA.SRCJPROCESS.MAR; 1 (13) | 


f ‘ 1 p ~SBTTL SHOW_CHANNELS == DISPLAY ACTIVE CHANNELS 
F946 (11 : : 
F 4 i ; ; SHOW_CHANNELS 
F94 «1155: THIS ROUTINE DISPLAYS THE INFORMATION IN, THE PROCESS CHANNEL TABLE | 
F94 11 $ ; PERTAINING TO T HE ACTIVE CHANNEL Ls. A CRASH FILE, YOU GET YOUR | 
F94 1157: CHOICE OF JUST THE DEVICE NAME OR A DEY VICECN AME WITH TH Nee FILE-ID. 
te 1328 : FOR A RUNNING SYSTEM, THE PILE NAME (IF AVAILABLE) IS ALSO DISPLAYED. | 
ay 1160 INPUTS: | 
F94 116¢ : PCB = PROCESS CONTROL BLOCK 
F94 1163; PHD = PROCESS HEADER BLOCK 
OF94 1164; | 
OF94 1165 ; OUTPUTS: 
OF 96 1196 ; 
F94 1167; NONE 
Ore 1168 ; 
F94 1169 :--- 
OF94 1170 
OF 96 112) .ENABL LSB 
OF 94 1198 SHOW_ CHANNELS: | 
O7FC OF 96 117% WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10> 
OF 96 1176 TRYMEM @CTLSGL_CCBBASE sSEE IF CCB TABLE EXISTS 
0A 50. «EB OFA 1177 BLBS RO,10$ : XFER IF AVAI 
a uo nefunn nou co ON | 
QOOOO3IC'EF 04 OFBO 1180 108: CLRL CHANTBL_SIZE eet sive 
ss quneemnenes a6 OF BS 118) REQMEM OCTLSGW_CHINDX, CHANTBL_ Saat s so CHANNEL HIGH WATER MARK 
Ronee Bee HI Rute SRB ae Ramin pdleme boat 
00000000 ' GF 09 FB OFDE 1188 CALLS #2,G*LIBSGET_VM 
01 5 E8 OFE 1186 RO, 208 eXFER IF SUCCESSFUL 
TEE TED zoe: Sete setae lg 
pre 1189 : PRINT 6. $j 8 Process active channels> 
000012E2"EF 00 FB Tooc 1199 yt Se eh TITLE PRINT COLUMN HEADINGS 
"EF 12E2°EF 9E 1013 119 MOVA CHAN We HEADING ROUTINE >SET HEADING ROUT INE ADDRESS 
39 00 7 00000890" FF 00 5f 3 1198 MOVC #0, aCHANTBL_ADDR,#0,R7,@CHANTBL_ADDR sCLEAR TABLE 
102C 1194 REQREN @CTLSGL_CCBBASE ,R6 ;GET CCB TABLE END ADDRESS 
56 57 C2 103C 1195 SUBL :CALC START OF THE TABLE 
56 00000320°EF 57 ct 1080 1197 REGRER CBO) .OCHANTBL ADDE.AT PROCESS FROR FHE TOP DOWN 
Hatt OE gat Ree a ee re 
09 A Ag 5 105€ 1200 30$: TSTB CCB$B_AMOD(R6) ‘Ts THE CHANNEL ACTIVE? 
Q 12 1061 1201 BNEQ 40$ :XFER IF $0 
0259 «31 1083 1 ‘ 35$: BRW 1608 sELSE GO TRY THE NEXT ONE 
55 6 b0 1 66 1 40$: MOVL $L_UCB(R6) ,R5 7GET THE | UCB ADDRE 
f 1 106 1204 BEQL :IF EQL T 
106B 1205 REQMEM UCBSL_DDB‘RS) ,R4 :GET THE DDB ADDRESS 
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1078 1 : 
1078 1 f ; Read node name into local memory. The node name will be displayed along 
: 4 ! § 3; with the device name. 
QOOOO3CB'EF 04 1078 1210 © CLRL ON ; ZERO THE LENGTH FIELD 
53 intdittt DO 107E 1211 MOVL SCS$GA_LOCALSB,R3 + LOCAL SYSTEM BLOCK 
1085 1 1 REQMEM DD S, .SB(R4) RO ; GET ADDRESS OF SYSTEM BLOCK 
53 50 b1 1092 1021 CMPL + I$ THIS THE LOCAL NODE? | 
—€ 13 1095 1214 BEQL = 4 ; BRANCH, LOCAL NODE 
$0 50 00000044 8F Ci 1097 1215 ADDL3 as $T_NODENAME,RO,RO —_: POINT fO NODE NAME 
109F 1 18 GETMEM (RO),RODE,#SB$S_NODENAME§ ; READ INTO LOCAL STORAGE 
50 00000 cB°EF 9A 1 8g 101 MOVZBL NoDe ; GET LENGTH OF NAM | 
000003C9'EF4 4 90 1087 1218 MOVB #°4/$/ ,NODE+1CROJ + APPEND ‘'$'’ TO NODE NAME 
QOOOOO3SCB'EF 96 108 13 ce INCB = NODE : INCREMENT LENGTH 
198 1201 REQMEM DDBST_NAME(R4),CHANDEV_NAME,#16 ;COPY THE DEVICE NAME | 
00000324"EF  OO00032C'EF 9A 1007 : MOVZBL CHANDEV_NAME, CHANDEV_SIZE tSET THE SIZE OF THE DEVICE NAME 
19¢2 1226 REQMEM UCB$W_UNIT(RS),RO :GET THE DEVICE UNIT NUMBER | 
7E 7C 10EF 1225 CLRQ.=(SP)~ ‘DESCRIPTOR FOR THE agyrut STRING 
ie Sea 108 1 1226 MOVL. SP,R4 [SAVE ADDRESS FOR LATER 
64 OF 00000324 EF AS 10F4 1227 SUBW3 CHANDEV_SIZE,#15,(R4) | ;SET THE SIZE 
0000032p' BF 00000304 "EF ci 10F¢ 1228 ADDL3 CHANDEVSIZE, #CHANDEV_NAME+1,4(R4) :SET THE ADDRESS 
50 DD 1109 1229 PUSHL RO ;STASH THE UNIT NUMBER | 
54 DD 1108 1230 PUSHL R4 SFORMAT THE DEVICE NAME | 
54 DD 110D 1231 PUSHL R4 
Q0001308'EF 9F I10F 1232 PUSHAB CHANDEV_FMT 
00000000 ' GF 4 FB 1115 1 CALLS #4,G*SYS$FAO 
50 E 7D 1110 1234 MOV. (SP)+,R :GET THE DESCRIPTOR & CLEAN THE STACK 
"EF AO 111F 1235 ADDW2 RO,CHAND EV ,5 SET FULL DEVICE NAME SIZE 
00 O00003D8'EF 00 2C 1126 1236 MOVCS 4#0.FCB,# itett _LENGTH, ite SCLEAR THE FCB 
000003D8'EF  00B4 B&F 112£ 
30 00 O0000048C'EF 00 2C 1136 1237 MOVCS #0,WCB,#0,#WCBSC_LENGTH,WCB : AND THE WCB 
0000048C "EF 113F 
7E F182 CF SE 1144 1238 MOVAB CHANSEC_TABLE,-(SP) :NO SECTION SO FAR 
55 SE dO 1149 1239 MOVL OR [SAVE ADDRESS FOR LATER 
9000033¢ ‘EF 9F 114C 1240 PUSHAB FILE_NAME :SET ADDRESS OF FILE NAME DESCRIPTOR 
QOOOO33C'EF 04 1152 1241 LRL = FILENAME ;NO FILE NAME SO FAR 
00000340'EF  00000344°EF 9& 1158 1 4¢ MOVAB FILE-NAMETXT,FILE_NAME+4. ;RESET ADDRESS 
54 04 A6 9 1163 124 MOVL CCRC WIND(R6) ,R4~ :GET THE WINDOW ADDRESS | 
05 13 1167 1264 BEQL 458 :XFER IF NO WINDOW PRESENT 
05 54 +€9 1169 1245 BLBC =_-«R4 , 508 *XFER IF WINDOW NOW INTERLOCKED | 
5 bs 116¢ «1 46 CLRL RG SELSE NO WINDOW ADDRESS 
QOA9 = 31 1165 1247 45$ BRW 70$ [SKIP THE FOLOWING TEST 
54 DS 1171 #1 48 50$ TSTL = RG [REAL WINDOW OR PST OFFSET 
20 19 1123 124 BLSS 608. :XFER IF REAL WINDOW 
54 32 1175 1250 CVTW “ELSE EXTEND O sel | 
50 00000148'EF 00000070'EF C1 1178 1251 ADDL PC ePCBSL PHD ,PHD+PHDS$L_PSTBASOFF ,RO LC PST ADDRESS 
54 OC A046 DE 1184 1 3 MOVAL  SEC$L_WINDOW(RO)CR4],R4~ GET ADDRESS S OF tne WINDOW ADDRESS 
1189 125 REQMEM (R4 [GET THE WINDOW ADDRESS | 
1195 1254 608: REQMEM (Ra) "WCB, #WCBSC_LENGTH :COPY WINDOW (M INS AP POINTERS) 
12 000004Se"EF 91 11A6 1255 CMPB +WCB$6_ TYPE, ADYNSC_WCB i CHECK BLOCK YPE 
12 11AD 1 : BNEQ sXFER IF NOT 
53 QOOO04AG'EF DO IAF 1 MOVL 4 B+wCBSL_FCB.R3 “ELSE GET FCB A ADDRESS 
62. 1 1186 1 ; BEQL 10$ :XFER IF NONE 
1188 1 REQNEM (R3),FCB,#FCBSC_LENGTH ELSE COPY THE FCB 


St ness 
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PROC PROCESS FORMATTING ROUTINES 16-SEP-1984 AX/VMS Macro V04-00 Page 29. 
y0ns000 SHOW_CHANNELS == DISPLAY ACTIVE CHANNELS 5-SEP=1984 t 8}: $3; $ EEDA SRCIPROCESS MAR: 1 ° | 
07 Q00003E2°EF 91 11CD 1260 CMPB FCB+FCBSB_TYPE.ADYNSC_FCB i CHECK BLOCK TYPE 
12 1104 1261 BNEQ 7 sXFER IF'NOT AN F 
000004698'EF B85 1106 1 6¢ TSTW WCB+WCBSL_ PID 71S FILE A SECTION? 
65 FOES ; 2 11bE or SOA CAANSEC TABLE*1, (RS) eee Ue Ntey ADDRESS 
0000033C'EF hose er ¢ 1ie8 1065 65$:  MOVZWL #132,FICE_NAME TELSE RESET DESCRIPTOR SIZE 
—E 04 116C 1 66 CLRL = = (SPS ;MAKE ROOM FOR SECONDARY STATUS 
3 DD 11EE 126 PUSHL SP [CONVERT FILE-ID TO A FILE NAME 
0 pp 11F0 1 i: PUSHL #0 
90000 3CiEF F ViF2 1 : PUSHAB FILE_NAME 
OOOO33C'EF OF 11F8 1270 PUSHAB FILENAME 
99000 FC'EF FF Ife 1271 PUSHAB FCB+FCBSW_FID 
Q0000324"EF OF 1 9 1 og PUSHAB CHANNEL_DEVICE 
00000000 ‘Gf 6 FB 120A 127 CALLS #6,G*LIBSFID_TO_NAME 
1 E DO 1211 127% MOVL ($P)+,R1 ;RETRIEVE SECONDARY STATUS 
03 E9 12146 1275 BLBC ~—_—«aRO, 708 ‘CAN'T USE FILE NAME IF ANY ERRORS 
1051 €8 1217 1 i: BLBS _R1.80 
QOOOO33C'EF D4 121A 1277 708: CLRL = FILE_NAME :NO FILE NAME DESCRIPTOR 
QOOOOSFC'EF 05 1220 1278 TSTL  FCB+FCBSW_FID SANY FILE=1D? 
iF 12 «1 : 1279 BNEQ 1008 [XFER IF SO 
7 34 1280 BRB 110$ ‘ELSE SKIP FOLLOWING 
0000033C'EF 358.8 3A A 1281 80S: LOCC #*A\C\,FILE_NAME,@FILE_NAME+4  ;STRIP DEVICE NAME 
97 131 5 1282 BEQL 90% :XFER IF NONE 
QOOOO33C'EF 50 7D 1239 128 MOVO RO, FILE_NAME TELSE SAVE NEW DESCRIPTOR 
15 00000000'EF £8 1240 1284 90$: BLBS CURRENT SYSTEM,110$ :MFER IF THE RUNNING SYSTEM 
E QO000400'EF 3C 1247 1285 100$:  MOVZWL FCB+FCBSW_FID_RVN,-(SP) :ELSE SAVE THE FILE-1D 
7E QOOOO3FE'EF 3C 1 aE 1286 MOVZWL FCB+FCBSW-FID"SEQ.-(SP) 
7E OOO0003FC'EF € 1255 1 87 MOVZWL FCB+FCBSW-FID-NUM,=(SP) 
00000324"EF 9F 125C 1288 1108: PUSHAB CHANNEL_DEVICE ;SET THE DEVICE NAME 
QOO003CB"EF OF 1262 1289 PUSHAB NODE [SET THE NODE NAME 
F050 CF 9 1268 1290 MOVAB CHANBUSY_TABLE,-(SP) :SET AS NOT BUSY 
OA A6 «BS 61260) «1291 TSTW CCB$W_IOT(R6) ;RIGHT? 
05 13 1270 1 3¢ BEQL 1208 ~ :XFER IF $O 
6€ FOS7 CF 9E 1272 129 MOVAB CHANBUSY_TABLE+1,(SP) ELSE NOTE BUSY 
7E FOG8 CF QE 1277 1294 1208: MOVAB CHANDPND-TABLE,-(SP) [NO DEACCESS PENDING 
OC AB DS 127C = «1295 TSTL CCBSL_DIRP(R6) RIGHT? 
05 13 #127F 1 3 BEQL :XFER IF SO 
6— FO3F CF SE 1281 129 MOVAB CHANDPND_TABLE+1,(SP) ELSE NOTE DEACCESS 
54 Dp 1 86 1 98 130$:  PUSHL R4 [SAVE THE WINDOW ADDRESS 
so Se A 129 SUBL3 R6,R8,-(SP) :SET THE CHANNEL NUMBER 
000003FC EF D3 128¢ 1 00 TSTL FCB+FCBSW_FID zANY FILE-I1D TO PRINT? 
1E 13 1292 1301 BEQL :XFER IF NOT 
0000033c' ai 8 1294 1 0¢ TSTW = FIALE_NAME [DO I HAVE A FILE NAME? 
7 13 129A 1 BEQL iYES, SKIP NEXT TEST 
OF OOO00D000'EF EB 129C 1304 BLBS CURRENT | SYSTEM, 1508 :DON'T DISPLAY FID IF CURRENT SYSTEM 
12A3 1305 140%: PRINT ee 1X ISAC! SAC 'ACTAS: (!UW, 'UW, 'UW) !AS'AC> 
OD 11 #1280 1 ° BRB 140$ {90 og THE NEXT CHANNEL "BLOCK 
12B2 1 150$: PRINT 5,< !xXW XL AC! SAC AC'AS: 'AS'AC> 
56 10 C2 12BF 1 : 160$:  SUBL2 recBsé LENGTH, R6 :NEXT CCB PLEA se. 
00000320'EF 56 D1 1 ce 1 CMPL RS CHARTBL_ADOR : DONE WITH ALL OF THEM? 
03 «1F 12¢9 1310 BLSSU bs :XFER IF SO 
FD90 31 12¢B 1311 BRW 40s TELSE TRY ANOTHER 
0000320'EF 9F 12CE 1 I 170$: PUSHAB CHANTBL_ADDR TRELEASE MEMORY ALLOCATED FOR CCB TABLE 
9000 Cree 9F 1204 131 PUSHAB CHANTBL SIZE 
00000000'GF 02 FB 12DA 1314 CALLS #2,G*LIBSFREE_VM 
04 1061 1315 : AND RETURN 


nensnatalbiiadincebsuitongtdingsecedtiuamsibnseiiebnainiiued 
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SHOW CHANNELS == DISPLAY ACTIVE CHANNELS 5-SEP=1984 03:33: SDA.SRCIJPROCESS.MAR; 1 (13) 


12E 1 
1 3 1317 CHAN_TITLE: 
0000 : ef } + WORD 

12ED 1320 PRINT »<Channel Window Status Device/file accessed 
12FA 1321 PRINT ee ee ee eee 

04 1 st 1 ¢ RET 
1 1 
1308 1324 CHANDEV_FMT: 

57 55 21 00001310°010E0000' ! ? } 5 eASCID ‘!UW\ ;FOR FORMATTING THE DEVICE UNIT NUMBER 

1313 1 $ -DSABL LSB 
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PROCES PROCESS FORMATTING ROUTINES SEP=19 144: AX/VMS Macro v04-00 
Mivet ht PROCESS_SUMMARY == DISPLAY LIST OF RUNNI 4 * iets 84:93:38 EeDA. SRCJPROCESS.MAR; 1 
° .SBTTL PROCESS_SUMMARY == DISPLAY LIST OF RUNNING PROCESSES 
1 1: 
} § ; PROCESS_SUMMARY 
4 : PRINT A LIST OF THE PROCESSES CURRENTLY RUNNING 
: : INPUTS: 
: : NONE 
40 : OUTPUTS: 
1 4¢ : NONE 
1 435; 
46 .ENABL LSB 
1 48 PROCESS_SUMMARY:: 
O3FC 49 ~WORD “M<R2,R3,R4,R5,R6,R7,R8,RI> 
1 51 SUBHD <Current process summary> 
1 3 SKIP —s PA 
QOO0147F'EF 00 FB 1 5 CALLS #0,SUMMARY_TITLE ; PRINT SUBHEADING LINE 
Q0000000'EF  OO000147F'EF 9E 34 MOVAB SUMMARY APITLE. HEADING. ROUTINE ; SET HEADING ROUTINE 
1 56 REQMEM @SCHSGL_PCBVEC,R : VECTOR OF PCB ADDRESSES 
1 57 REQMEM @SCHS$GL_MAXPIX.R : GET MAXIMUM PROCESS INDEX 
57 52 dO 1 58 MOVL  R2,R7 > ADDRESS OF NULL PROCESS SLOT 
58 O00002A8'EF 9E 1 59 MOVAB JIB,R8 
54 O0CO0C4'EF SE 1 60 MOVAB PCB.R4 
55 00000128'EF 9E 61 te MOVAB PHD.RS 
1 8g " —s REQMEM = (R2),R9 : GET ADDRESS OF NEXT PCB 
1 64 GETMEM (R9),(R4),#PCBSC_LENGTH ; READ ENTIRE PCB 
0A 50 £9 1 65 BLBC = RO, 128 : SKIP IF ERROR READING 
60 AS OBS 66 TSTW © PCBSL_PID(R4) ; CHECK IF NULL PROCESS 
08 12 1 6 BNEQ 15$ ; BRANCH IF NOT 
57 32 pi 1 68 CMPL Re R7 ; IS THIS THE REAL NULL PROCESS? 
03 13 :«1 69 BEQL 4=s«a15$ ; OK IF NULL PROCESS 
00A0 31 20 128 BRW 50$ + BYPASS THIS ENTRY 
1 ie : MOVCS #0, (SP),#0,#JIBSC_LENGTH,(R8) _; PRE-ZERO JIB IN CASE NOT THERE 
50 20202020 8F 00 1 7 MOVL waa" "RO : 
0c AB. 50 «(D0 1 74 MOVL  RO,JIBST_USERNAME(R8) ; AND FILL THE USERNAME WITH SPACES 
10 as 50 «(DO 1 75 MOVL RO. JIBST“USERNAME +4 (R8) 
1408 50 dO 1 0 MOVL RO lest USERNAME +8(R8) 
0080 C4 p of iste PCBSL_JIB(R4) ; CHECK FOR JIB 
9 wake TRYMEM @PCBSL_JIB(R4),(R8),#JIBSC_LENGTH ; GET JIB 
50 3406 3606 Al 1 1 "  apow3 pcasu PPGCNT(R4) ,PCBSW -GPGENT(R4), RO 
7E 3c 1 : MOVZWL ; WORKING SET SIZE (PHYS. MEM.) 
6C AG) «ODO PUSHL pcos. PHD(R4) : PHD ADDR ESS 
59 bp 1 4 PUSHL RO : PCB ADDRESS 
51 1F 0B Ad 1 5 SUBB3 PCB$B_PRI(R4),#31,R1 + CURRENT PRIORITY 


rocks m3 


re 9 
02 2c as B 
51. 2C AG ¢ 


EC2E CF41 F 
OC AS OF 

oc D 

71 AG F 

7E 70 AS QA 
60 ASD 

64 AG ODD 


28 OOOOOOOO'EF 00 4 
EBES CF F 

0000149C ‘EF 0 FB 
0350 €9 


6— 56 00 

00 BE 95 

0 12 

SE 04 (0 

QOD 11 

52. 04 «=O 
53? 

$3 19 

FF29 = 351 

Oc 6B 

52. 4C A400 
53. E€D0B CF 9E 
Q0000000'GF 16 
OC BA 

oc 312 

4C AG D5 

84 818 

EDC? CF =o9F 
FF860= 31 

50 0 

FF81 1 
QOO00000"EF O00 FB 
04 

0000 


ee ee = 
Ft et et et et et et et et keke ek ee ek ee ek ek ak kl el Sak tek ak ah teh ee ee bad ahah ahah ad ad ah ad nd ad ada aod 


PHP AAAI AAA AIAG RIPONIPYNIPYIDINIDS 2 2 POO OO HK POOOOOOCOCOCOCOOOOOOOONO 


ROOD NOAUNE WIN @ OOO NAW EWN 0 OO NAME WN 0 OD NA UE WIN O OONAUE Wi 


TTING ROUTINES 


MOVL Re, (SP) 
TSTB a(SP) 
35 


BNEQ 4 
ADDL2 #4,SP : 
BRB 50$ 
PRINT 1,< 'AC> 
ADDL2 #4,R2 : 
ECL : 
BLSS 908 ; 
BR 10$ 3 
PUSHR #*M<R2 ; 
MOVL  PCBSL EFanna) R2 F 
MOVAB RESOURCE WAIT,R3 : 
JSB C TRANSLATE, _ADDRESS ; 
POPR #*M<R2,R3> : 
BNEQ 85 ; 
TSTL PCBSL_EFWM(R4) : 
BGEQ 9$ : 
PUSHAB MWAIT : 
BRW 20$ : 
PUSHL RO ; 
BRW 208 ; 
CALLS #0,SET_PROCESS : 
STATUS SUCCESS 


~DSABL LSB 


SUBROUTINE TO PRINT TITLE LINE 


UMMARY_TITLE: 
RD 


PRINT 0,< Extended Indx Process 


“SEP AX/VMS Macro V04-00 Page 
RY == DISPLAY LIST OF RUNNI Verse -SEP =} 38 8}: $3 34 SDA.SRCIP PROCESS. MAR; 1 . d 
MOVZBL (SP) 
CMPW Bt $W _STATE(R4) ,ASCHSC re an 3; CHECK FOR MWAIT 
Rove 3 pe PELE OREN RESOURCE WAIT STATE 
MOVZWL PCBSW_STATE(R4),R1 Fy CURRENT STATE 
PUSHAQ STATE” “TABLECR1]" 
PUSHAB jigst. USERNAME (R8) ; ADDRESS OF USERNAME 
PUSHL # 3; LENGTH OF USERNAME 
PUSHAB PCBST_LNAME+1(R4) ; PROCESS NAME 
MOVZBL PCBS$T~ eso ae -(SP) ; PROCESS NAME LENGTH 
PUSHL PCBSL~ ~p bk 3; INTERNAL PROCESS IDENTIFICATION 
PUSHL npest cP ; EXTENDED PROCESS {RENTIFICATION 
PRINT at y 15AF 'T2AF !5AC !2UB !XL 'XL !5UL> 
BC bostsy" bAGe. OPTIONS,50$; CHECK IF / IMAGE SPECIFIED 
PUSHAB NOTAVAIL ; PRESET TO USE “'NOT AVAILABLE'' STRING 
CALLS *0, me IMAGE ; READ IMAGE FILE NAME 
BLBC ; BRANCH IF ERROR READING 


ADDRESS OF NAME BUFFER 
DID IT GIVE US A NULL? 


; POP THE STRING OFF, DON'T PRINT 


; NEXT PCB ADDRESS 


DECREMENT Hercuren COUNT 
BRANCH IF FINISHED 
CONTINUE UNTIL DONE 


; SAVE tM watt ADDRESS AND COUNTER 
; RESOURCE WAIT 

; ADDRESS OF ime OF STATES 

; DETERMINE STATE 

: ht Dh a tats FO OUA ren 


; NOT ADDRESS 
; ADDRESS OF Ba COUNTED STRING 
; RETURN TO MAIN PATH 

; ADDRESS OF When WAITING FOR 
; RETURN TO MAIN PAT 


RESET PROCESS PAGE REGISTERS 


name Username State Pri PCB 


J 
PROCESS SUMMARY “= DISPLAY LIST OF RUNNI 'S-SEP=198¢ 04:35:38 EebarsaciPROcess-man:1 29° (fay 


V4BE 1443 PRINT 0, <9 PID <= sane snneennnnnenene coeeneeeene coeee coe cnnnnne --- 
04 1498 1444 RET 


7 
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PROCES PROCESS FORMATTING ROUTINES “SEP=-1984 01:44: AX/VMS Macro v04-00 Pa 4 | 
fiver READ_IMAGE, READ IMAGE FILE NAME STRING eet 7 84:94:39 SDA. SRCJPROCESS.MAR; 1 - Hy 
149C 1446 .SBTTL READ IMAGE, READ IMAGE FILE NAME STRING 
ae ae 
149¢ 1208 : SUBROUTINE TO READ THE IMAGE FILE NAME FOR THE 
149 1450 PROCESS DESCRIBED BY THE SPECIFIED PCB AND PHD. 
149¢ 1458 : R4 = ADDRESS OF PCB 
149¢ 1433 : RS = ADDRESS OF PHD 
149C 1455 : RO = SUCCESS/FAILURE FLAG 
149¢ 1436 : R6 = ADDRESS OF BUFFER CONTAINING ASCIC FILE NAME 
1496 1488 5 
149C 1460 READ_IMAGE: 
0004 149 1461 .WORD  “M<R2> 
56 O0000000'EF  9€ 1496 1288 MOVAB L“BUFFER,R6 : SET BUFFER ADDRESS 
66 94 «1405 «(1464 CLRB —- (R6) + PRESET TO NULL STRING 
01 60A4 Bi 14A7 1465 CMPW = PCBSL_PID(R4) ,#1 + CHECK IF INDEX = 0 OR 1 
03 1A 14AB 1466 BGTRU 15$ : IF NULL,SWAPPER SKIP THIS 
0087 31 14AD 1467 BRW 50$ : IF NULL,SWAPPER SKIP THIS 
6C AG «60S «1480 1468 158 TSTL PCBSL_PHD(R4) : CHECK If ZERO 
15 13 1483 1469 BEQL 18$ * BRANCH IF SWAPPED OUT 
1485 1470 TRYMEM @PCBSL_PHD(R4),(R5),#PHD$C_LENGTH ; READ PROCESS HEADER 
03 50 €8 14C7 1471 BLBS RO,20$ ; BRANCH IF OK 
me ee area 
50 O0000000'EF 7E 14CD 1474 208 MOVAQ  POBR,RO 
00c8 CS) 7D «1404 «1475 MOVQ PHD$L_POBR(RS), (RO) ; SETUP RELOCATION REGISTERS 
08 AO 0000 C5) «7D «214D9'«—«1476 MOVQ PHD$L~P1BR(R5) .8(RO) 
04 a0 04 A0 18 O00 EF 14DF 1477 EXTZV #PHDSU_POLR, #PHD$S_POLR,4 (RO) ,4(RO) 
OOO00000'EF 60 A4 DO 1466 1478 PCBSL_PID(R4) ,PROC-PID ©; SET PROCESS PID TO READ 
4C OO000000'EF £8 14 1479 BLBS VERSION_FLAGS,10$ : BRANCH IF RELEASE 2 
1465 1481 ; VMS RELEASE 1 = IMAGE FILE NAME RESIDES IN IFD BUFFER 
51 Q0000000'EF DO 1465 1488 ‘ MOVL § MMGSIMGHDRBUF ,R1 ; ADDRESS OF IMAGE BUFFER 
14FC 1484 TRYMEM 4(R1),R2 : GET ADDRESS OF IFD 
2E 50 £9 1509 1485 BLBC — RO : BRANCH IF ERROR 
150C 1486 TRYMEM IF O$W_FILNAMOFF (R2) : GET OFFSET TO FILE NAME 
21 50 £9 1316 1487 BLBC RO. 908 : BRANCH IF ERROR 
9 38 131¢ 1289 BEQL =-50$ ; BRANCH IF ZERO OFFSET | 
151E 1490 TRYMEM (R2)ER1I, (RO) #32 : GET ASCIC IMAGE FILE NAME | 
0B 50 €9 152¢ 1491 BLBC RO,90$ : BRANCH IF ERROR 
20 66 1 152F 1498 CMPB  —s« (RO) , #32 : CHECK IF OVER 32 CHARACTERS | 
03 1B 1532 149 BLEQU 308 : BRANCH IF OK 
66 20 90 1534 1494 MOVB #32, (R6) : TRUNCATE TO 32 CHARACTERS | 
50 061 00 13 7 1495 50$:  MOVL  #1,RO : SET NO IMAGE NAME 
00000000'EF D4 153A 1496 90$: CLRL  PROC_PID : CLEAR PID ON EXIT SO THAT MEMORY | 
1540 149 : REQUESTS FOR SYSTEM SPACE WILL GO 
1340 1498 : FASTER (DON'T NEED THIS CONTEXT) 
8 Pek 
13] 1301 ; VMS RELEASE 2 - IMAGE FILE DESCRIBED BY IFD$Q_CURPROG | 
| 


L 7 
PROC PROCESS FORMATTING ROUTINES 16=SEP=1984 AX/VMS Macro v04-00 Page 35 
VOos600 READ_IMAGE, READ IMAGE FILE NAME STRING g-§ P=1984 8}: $3) $ YODA SRCIPROCESS MAR: 1 9° iB) 
1541 1503 10$:  TRYMEM @ TESGL_ IMGHDRBF ; READ ADDRESS OF IMAGE HEADER 
OB TAE Te BEE 8.908 LAMM ade BESBEe 
E213 1 1 6 BEQL ©: 508 3 BRANCH IF NONE 
D8 50 «£9 i F Beer 80908 : BRANCH TF”ERROR. 
ar ant on i 09 TRYWER 168, CURPROG(RI), (R6), wi eae REA D DESCRIPTOR 
50 &6 oA t 1 NOVZBL £R6) ,RO CHECK LENGTH OF STRING 
1 78 1 18 TRYMEM @4(R6),1(R6),RO READ FILE NARE gSTRING 
BO 50 €9 138 1514 BLBC R0,90$ + BRANCH IF ERR 
11 158A 1515 BRB 50$ + SUCCESS 


=m 


SEp-1986 05:55:85 USDA: 
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N 7? w :44:36 YAX/VMS Macro V04-00 Page 3 
PROCESS FORMATTING ROUTINES VgrSEP-1984 01:46:36 


) 
sep! SDA. SRCJPROCESS.MAR; 1 ? 
3 
PROCESS eeeteeee = §6X 83 
AB RG 
Symbol table = 0000009F 04 HIT Pen a 74 
$$$ etteeeee x JIBSC_LENGTH = 0 
ALLOCATE = 0000000 JIBSL-BYTCNT > 4 
ARGS 6 1D7 R JIBSLIBYTLM s 4 
AST 900 ep R JIBSL-MPID = 4 
AST_TABLE FOR JIBSL“PGFLCNT s 
BREAK aeeeeree =X JIBSL“PGFLQUOTA a 
BUFFER = 9 09 JIBST"USERNAME = 00 0 
CCB$B_AMOD = 2090 10 JIBSWIFILCNT = 00 
ca = BEES Haat i: is 
C s ” = 
- : 4 RCLIM = 00000034 
ete a “BSI ac 
W J 
R 0 01 R 0 
eerie Ova a Bea * 8 
CHANDEV-S17E 00000 3 R 9 CIBSF ID. TO NAME eeeneeee X03 
CHANDPN LE 80000894 R 8 CIBSFREE vA aeneeeee X= 03 
neta Sass $e Liga =p 
HANSEC_ LIB - 03 
EHANTBL “SIZE 09001 ‘ ; 5 Legon Go000%b) R83 
R genee 
CLUSTER sare R 05 MMGSIMGHDRBUF 00000293 83 
CRF_TABLE = 00000008 MODIFY. TABLE 00000219 03 
SL- eeneecee =X 03 MPAGE_BUSY 00000213 
‘ $GL_CCBBASE eeeeeere x 03 MPAGE EMPTY Rekkeeee 03 
CTLSGL~IMGHOREF ee ae MSG$_ROTRES ceeesere 03 
eit ld CHINDX Reeeeeee x 03 SG$ SUCCESS 00000228 R 03 
CURRENT SYSTEM = 00000034 mUAIT Reeeeeee 03 
DBS SB = 60000014 NEW. PAGE 090005¢8 R02 
335 eeeeeeee 03 NODE OOO00TES R 3 
DEALLOCATE 00000459 RG = 03 NONPAGED 99000000 R 0 
SPLAY_PROCESS 00000395 RG = 03 NOTAVAIL = 00000400 
DISPLAYTPROS 90000007 xX 03 OP Tsn.cH - a 0000100 
DUMP _PT = 0 OPTSM_PO_ e 2 
att “HIS m gp BRIBE Pa : ee 
BIRO TABLE eeereree x 03 OPTSM PPT . BeOS 0 
esp 90000308 R 02 OPTSM-PPT_LEN = 90004000 
FCB = 0000000A OPTS$M_PPT_RNG - 6 9008 
FCBSCILENGTH : 09009 4 OPTSATREGS : 6 040 
FCBSC_ = - = 01 
FCBSW_FID : ° OPTSM~SYSPROC ~ 01 
F CBSW_F iD_NUM = 00 8 OPTSM_WSL = 8 
ae eg Bilt : Sas 
FILENAME TXT 0000231 6 OPTSV~PO PPT . ° C 
GBL_ TABLE sooanset . x 0 ht td = : 
GOODPAGE TABLE 2000888 8 OPTSV-PHD = $0000001 
HORSTR1 ~ eecceere =X OPT$V~PPT = 90000000 
w ABE epu = anne Serato 
IrDsurF ~ 000001FB R = 03 OPTS¥. 


PROCESS 
Symbol table 
OPTS$V_REGS 
oP 


TSV—RMS 
OPTS$V—RMSD 


PAGED 
PAGE SIZE 
PAGING 
PAGTYP_TABLE 
PCB 
PCBSB_ASTACT 
PCBSB_ASTEN 
PCBSB_PRI 
PCB$B_PRIB 
PCBSB_WEFC 
PCBSC_LENGTH 
PCBSL_EF CoP 


PCBSVWALL 
PCBSW~APTCNT 


EN 
FORCPEN 


NO 


SBS San 


N 
PCB$V~WAKEPEN 


Woo 


PROCESS FORMATTING ROUTINES 


PHDSL~POBR 
PHDSL~POLRASTL 
PHDSL~P1BR 
PHDSL-PILR 
PHDSL~PAGEFLTS 
PHDSL ~PAGF IL 
PHDSL PC 
PHDSL~PSL 
PHDSL~PSTBASOFF 
PHDSL~PTWSLELCK 
PHDSLPTUSLEVAL 


v 
= 
faa 
DBDDDDDDDADAADAzAZD 
CONAN EWI tO 
Wwn—-oO 


HHHHHHHHHHH 
zw 
i>) 
row 
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PROCESS 
Symbol table 


PHDSV_POLR 
PHDSWASTLM 
PHDSW~DF WSCNT 
PHDSW_EXTDYNWS 
PHDS S 


PHDSW_WSNEXT 
PHDSW_WSQUOTA 
PHDADR 


PRINT 
PROCESS_ STATUS 


PROCESS SUMMARY 
PROC_NAME 


RSNS_JQUOTA 
RSNS$_LOCKID 
RSNS_MAILBOX 


RSNS_MAX 
RSNS_MPLEMPTY 
RSNS_MPWBUSY 


RSNS$_PGDYNMEM 
RSNS$_PGF ILE 


RSN$_SCS 
amc elas 


SAV 
SB$S_NODENAME 
SBST_NODENAME 


CSWA 
SEC$C_LENGTH 
SECSL~CCB 


FWOOM DML MPOMMUOOCLOWES YOO 


ReEERREEE 


69000 97 R 
0001313 RG 


eeeeeeee 
eeeerere 
00000085 R 
0000149C R 


Reeeeenre 


Oooo 

SOOO oOSoOOOSOOSOOOSOOOSoSoO 
OOooooooooo 
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OOoOOoooooooo 
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L 
L 
L 
L 
L 
$ 
S 
V 
V 
V 
V 
V 
V 
W 
i 
is 
H 
Pp 


Q_CHANNELS 
OW_PCB 


ATE_TABLE 
STS$K WARNING 
SUMMARY _TITLE 
SWAP 


SYSS$FAO 
TRANSLATE ADDRESS 


TRANSLATE BITS 
TRYMEM 


UCBSL_DDB 
UCBSW_UNIT 
VALID= FABLE 
VERSION, FLAGS 


WCB$B_TYPE 
WCBSC_LENGTH 
WCBSL_FCB 
WCBSL-PID 
WRT_TAB 


WSL_TITLE 


Bhi ggi ge Yax 
itd 
2090006 


RERRREAE 
RRAKKHRE 


: 
: 


RARER 


00000C35 
00000934 
keener 
teeeeeee 


00000A31 


HEEEEEEE 


00000200 


REEEREEE 
REARS 
RERREAEE 
RRRTAAAE 


“ou 
Cc 
Oo 
oO 
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moo 
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PROCESS 


PROCESS FORMATTING ROUTINES 
Psect synopsis 
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PSECT name Allocation PSECT No. Attributes 


. ABS . 8 $008 ( -) Q0 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 0 ( -» Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

SDADATA 00004BC  ( 1! ) § ( ¢°) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 

PROCESS 00 13 f ( 5516.) ( -) USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

LITERALS 00001 ( 4616.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
eo * 


$eeecccceccccecccccccecens$ 


Phase Page faults CPU Time Elapsed Time 


Initialization 9 00:00:00.05 0:00:00.90 
Command processing ] 4 BO Oe eee 3 B93) 
ass :00:13. 7:00:48. 
a table sort one 00:00:01.3 BF +80 103 6 
ass $ HY e : H . 
Symbol table output 39 00:00:00: 18 BR? BD 300-48 
Psect synopsis output 3 8 0 0:00:00.20 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 996 00:00:19.99 00:01:14.96 


The working set_Limit was 2250 pages. . 

139106 bytes (272 pages) of virtual memory were used to buffer the intermediate gode. 

There were 80 pages of symbol table space allocated to hold 1422 non-local and 171 local symbols. 
1518 source Lines were read in Pass 1, produc ing 54 object records in Pass 2 

42 pages of virtual memory were used to define 41 macros. 
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' Macro Library statistics : 
See eeoeeeeeeeoeeeeeseseeec= 


Macro Library name Macros defined 
-$255$DUA28: ote ah ge Ph pe 15 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 14 
$255$DUA28: (SYSLIBJSTARLET.MLB;2 8 
TOTALS <all Libraries) 3 


1597 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:PROCESS/OBJ=OBJ$:PROCESS MSRC$:PROCESS/UPDATE=(ENHS:PROCESS) +EXECML$/LIB+LIB$:SDALIB/LIB 
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